	#tag Class
	Protected Class Henchman
		#tag Method, Flags = &h0
			 Shared Function Peasant() As Integer
			  return 1
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			 Shared Function Highwayman() As Integer
			  return 2
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			 Shared Function Knight() As Integer
			  return 3
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			 Shared Function Monk() As integer
			  return 4
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			 Shared Function Undefined() As Integer
			  return 0
			End Function
		#tag EndMethod

		#tag Method, Flags = &h21
			Private Sub Constructor()
			  
			End Sub
		#tag EndMethod


		#tag Note, Name = About this class
			Description
			===========
			
			The Henchman class works like an Enum in a module. It cannot be instantiated and provides only the types of henchmen as shared methods. 
			
			How to use the Henchman-class
			=============================
			
			To set the type of a Gamepiece to a specific henchman-type use game.Henchman.*
			
			Example: 
			
			Set the type to highwayman.
			
			    dim gp as new game.Gamepiece(playerToWhichTheGamePieceBelongsTo)
			    gp.setType game.Henchman.Highwayman
			
			To check the type of a Gamepiece you can also use the henchman-type
			
			Example:
			
			Check the type (which is highwayman)
			
			    if gp.GetType = game.Henchman.Highwayman then
			        //it is a highwayman
			    else
			        //it is another type
			    end if
		#tag EndNote


		#tag ViewBehavior
			#tag ViewProperty
				Name="Name"
				Visible=true
				Group="ID"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Index"
				Visible=true
				Group="ID"
				InitialValue="-2147483648"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Super"
				Visible=true
				Group="ID"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Left"
				Visible=true
				Group="Position"
				InitialValue="0"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Top"
				Visible=true
				Group="Position"
				InitialValue="0"
				InheritedFrom="Object"
			#tag EndViewProperty
		#tag EndViewBehavior
	End Class
	#tag EndClass
